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Preface 


This document describes the Transferable Output ASCII Data (TOAD) file 
format and its use. The introductory section presents the concept and 
advantages of TOAD to the nontechnical reader. The remaining bulk of 
the document presents the TOAD format In detail, and is intended for the 
applications programmer needing a technical description of the TOAD 
format. 
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Introduction 


TOAD is an acronym for Transferable Output ASCII Data. The TOAD format 
is a set of standards used when writing a data file, called a TOAD file. 
The purpose of the TOAD format is to facilitate the transfer of data and 
software from one computer installation to another. 

The concept of TOAD is very simple yet not immediately obvious. Perhaps 
the best description of the TOAD format is that it is not concerned with 
what is stored in a TOAD file, only how it is stored. For example, a 
very simple TOAD file might contain: 


BEGIN 

COUNT 

3 



LABEL 

YEAR 

SALES 

PROFIT 

DATA 

1960 

30 

5 

DATA 

1970 

100 

20 

DATA 

1980 

350 

50 

DATA 

END 

1990 

1500 

300 


Note: Both this example and the one which follows use an 

oversimplified TOAD format for demonstration 
purposes only. The actual TOAD format is described 
in detail beginning on page 3. 


Perhaps this represents summarized financial data for a company over a 
period of 31 years. The "BEGIN" at the top of the file and the "END" at 
the bottom of the file simply mark the beginning and end of the data. 
The "COUNT" value of 3 indicates that there are three variables in the 
data set. The "LABEL" record assigns a name to each of these three 
variables: "YEAR" to variable #1, "SALES" to variable #2, and "PROFIT" 

to variable #3. The remaining "DATA" records contain the data 

corresponding to these variables. For example, in the "YEAR" 1970, 
"SALES" were 100 units with a "PROFIT" of 20 units. 

As another example, another very simple TOAD file might contain: 


BEGIN 

COUNT 

4 




LABEL 

X 

Y 

TEMP 

PRESS 

DATA 

1 

1 

10 

2 

DATA 

1 

2 

12 

4 

DATA 

1 

3 

30 

8 

DATA 

2 

1 

20 

2 

DATA 

2 

2 

30 

4 

DATA 

END 

2 

3 

50 

9 
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Perhaps this represents physical data collected over a 2 x 3 grid. 
Again, "BEGIN" and "END" mark the beginning and end of the file. The 
"COUNT" of 4 indicates that there are four variables in the data set, 
with the labels "X", "Y", "TEMP", and "PRESS", respectively. The 

remaining "DATA" records make up the data set. For example, at "X ,,= 2 
and "Y"=3 (presumable a physical location) the "TEMP" is 50 units and 
the "PRESS" is 9 units (presumable temperature and pressure). 

There are two advantages in using the TOAD format. First, TOAD files 
are of the preferred type and record length to make them easy to edit, 
read and write on magnetic tape, or transfer across communications 
networks. Second, applications programs can write TOAD files directly 
(making their results easy to postprocess) yet still conform to all ANSI 
FORTRAN 77 standards. 
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The TOAD Format 


File Characteristics 

TOAD files are formatted (as opposed to unformatted or binary), 
sequential -access (as opposed to direct-access, indexed, or keyed) 
with fixed-length records of 80 characters. There is no limit on 
the number of records within a single TOAD file. Each and every 
record conforms to the Universal Record Format. 


Universal Record Format 

All records within a TOAD file have the same basic format, called 
the Universal Record Format. Each record is divided into six 
fields: 

field 1 2 3 4 5 6 

columns 1-5 6-20 21-35 36-50 51-65 66-80 

The first field, also called the "type" field, contains text and 
has the format A5. The remaining five fields of 15 characters each 
may contain text or numeric information. For text information, the 
format is A15. For integer numeric information, the format is 115. 
For real numeric information, the format is E15.8. Notice that the 
text information is left-justified within a field, but numeric 
(integer or real) is right-justified. 


Warts 


The Universal Record Format allows event information for up to five 
variables to be stored on a single record. If data for more than 
five variables is to be stored, groups of multiple records are 
used. For example, a seven-variable TOAD file might contain: 


BEGIN 

COUNT 

LABEL 

7 

MACH 

ALPHA 

2Y/B 

LOAD 

CL 

DATA 

CD 

.6 

CM 

10. 

.75 

.31 

1.2 

DATA 

.43 

.6 

-0.04 

20. 

.75 

.53 

1.8 

END 

.73 

.02 
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As another example, a 13-variable TOAD file might contain: 


BEGIN 

COUNT 

LABEL 

13 

TUNNEL 

MODEL 

JULIAN 

ALPHA 

RUN 


ROW 

2Y/B 

PORT 

X/C 

PRESS 

DATA 

TEMP 

21. 

VEL 

118. 

STRAIN 

83034. 

10. 

12. 


3. 

.3 

5. 

.45 

.67 

DATA 

62. 

21. 

.69 

118. 

.0002 

83034. 

20. 

13. 


3. 

.3 

5. 

.45 

.59 

END 

61. 

.63 

.0009 




This "wraparound" method is used for as many records as needed to 
store all of each event's data, and each group of records 
correspondi ng to a single event is called a TOAD "wart". For 
clarity, only the first record in each wart contains the type of 
information ("LABEL", "DATA", etc.) stored. 


Types of Warts 

There are two groups of wart types: official and unofficial. The 
official wart types are: 

BEGIN begins a TOAD file. A BEGIN wart is always a single 
record. The word "BEGIN" appears in field 1 of the 
universal record format. 

END ends a TOAD file. An END wart is always a single 

record. The word "END" appears in field 1 of the 
universal record format. 

COUNT indicates the number of variables in the TOAD file. 

A COUNT wart is always a single record. The word 
"COUNT" appears in field 1. The type integer 
variable count is right-justified in field 2. 
Values less than or equal to zero are not allowed. 

LABEL contains the labels (names) of the variables in the 
TOAD file. A LABEL wart may contain one or more 
records. The number of records is given by: 

nrecs = int( (nvars+4)/5) 

where 'nrecs' is the nunber of records in the LABEL 
wart, and 'nvars' is the number of variables given 
in the COUNT wart. The word "LABEL" appears in 
field 1 of the first record, but may or may not 
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appear in field 1 of any subsequent records within 
the same wart. All labels are type character, 1-15 
characters long (A15 format preferred), and 
left- justified in fields 2-6. 

UNITS contains the units of the variables in the TOAD 
file. A UNITS wart may have one or more records. 
The number of records is given by: 

nrecs * int( (nvars+4)/5) 

where 'nrecs' is the number of records in the UNITS 
wart, and 'nvars' is the number of variables given 
in the COUNT wart. The word "UNITS" appears in 
field 1 of the first record, but may or may not 
appear in field 1 of any subsequent records within 
the same wart. All units are type character, 1-15 
characters long (A15 format preferred), and 
left-justified in fields 2-6. 

DATA contains data for a single event. A DATA wart may 
have one or more records. The number of records is 
given by: 

nrecs = i nt( (nvars+4)/5) 

where 'nrecs' is the number of records in the DATA 
wart, and 'nvars' is the number of variables given 
in the COUNT wart. The word "DATA" appears in field 
1 of the first record, left-justified, but may or 
may not appear in field 1 of any subsequent records 
within the same wart. All data are type real, 1-15 
characters long (E15.8 format preferred), and 
right- justified in fields 2-6. 

SKIP allows comments within a TOAD file. A SKIP wart is 
always a single record. The word "SKIP" appears in 
field 1, left-justified. Any text is allowed in 
columns 6-80. SKIP warts may appear anywhere in a 
TOAD file, with three exceptions: 

- never before a BEGIN wart. 

- never after an END wart. 

- never between two records within another 
multi -record wart. 


There is no list of unofficial wart types. Users with special 
needs may create new wart types for their particular application, 
with the understanding that if that TOAD file is transfered to 
another user, the information contained on unofficial warts will be 
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gnored. Examples of unofficial warts might be: 

ZERO for data acquisition system calibrati 

TOL tolerances for the variables. 

FLUKE an unusual data event. 
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TOAD Standards 


1. Exactly one BEGIN wart must appear in the TOAD file, and it must be 
the very first record. 

2. Exactly one END wart must appear in the TOAD file, and it must be 
the very last record. 

3. A COUNT wart must appear before any LABEL, UNITS, or DATA warts. 

4. No wart may come between two records within another multi -record 
wart. 

5. SKIP warts may appear anywhere in the TOAD file, subject to 

condition 4. 

6. Multiple COUNT warts are allowed. A secondary COUNT wart may 

change the number of variables (and the number of records) 
contained in subsequent LABEL, UNITS, and DATA warts. 

7. Multiple LABEL warts are allowed. A secondary LABEL wart may 

change the variable labels, but unless a secondary COUNT wart is 
used, the new LABEL wart must contain the same number of labels and 
the same number of records. 

8. Multiple UNITS warts are allowed. A secondary UNITS wart may 

change the variable units, but unless a secondary COUNT wart is 
used, the new UNITS wart must contain the same number of units and 
the same number of records. 

(TOAD files containing multiple COUNT, LABEL, or UNITS warts are 
called "complex" TOAD files) 

9. Multiple DATA warts are allowed (and expected). Unless secondary 
COUNT records are used, all DATA warts must contain the same amount 
of data and use the same number of records. 

10. There is no limit on the number of warts or records in a TOAD file. 
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Guide! ines 


1. Many simple TOAD files are preferred to a single complex TOAD file 
(a "complex" TOAD file is one which contains multiple COUNT, LABEL, 
or UNITS warts). 

2. When writing a TOAD file having multi-record warts, writing the 

wart type on only the first record of each wart makes the file much 
more readable. 

3. If possible, try to avoid writing TOAD files with an excessive 

number of warts, or with an excessive number of variables. 

Breaking up an extremely large TOAD file into many smaller TOAD 
files, even at the expense of duplicating some of the data, will 
usually quicken access time and save money. 

4. Although the "A" in "TOAD" is for ASCII, EBCDIC (or any other 

character set) works equally well. 
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Appendix A 


TOAD utility software listed in this appendix: 

TOADA selectively accesses data from a TOAD file. 

TOADM generates a menu of the parameters within a TOAD file. 
TOADV verifies that a file is in TOAD format. 

VARMAP sets up a pointer array for subroutine "TOADA". 

FORMAT creates label and data wart formats. 

DBLANK removes all blanks from a text string. 


All of the utility software listed in this appendix is available on the 
NASA / Langley Research Center CDC mainframes. It is also available 
from COSMIC as item LAR-13755. For further information, contact: 


COSMIC 

Software Information Services 
Computer Services Annex 
The University of Georgia 
Athens, GA 30602 


(404) 542-3265 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


SUBROUTINE TOADA ( IN, MAXYAR, CWORK, RWORK , 

+ NUMSEL, NAMSEL, VALSEL, TOLSEL, IWORK, 

+ XNAME , XMIN, XMAX, YNAME, YMIN, YMAX, 

+ NCAPAC , XDATA, YDATA, NUSED, IERROR ) 


UTILITY TO SELECTIVELY READ DATA FROM A TOAD FILE. 

THE "TRANSFERABLE OUTPUT ASCII DATA (TOAD) FILE FORMAT DESCRIPTION" 
IS AVAILABLE FROM BRADFORD BINGEL (CSC) OR DR. JOHN E. LAMAR (NASA). 

AN ATTEMPT IS MADE TO RETRIEVE QUALIFIED DATA FROM A TOAD FILE AND 
STORE IT INTO X- AND Y-AXIS DATA ARRAYS. SEARCHING BEGINS AT THE 
TOP OF THE TOAD FILE AND CONTINUES UNTIL THE DATA ARRAY CAPACITY IS 
REACHED OR UNTIL THE LAST RECORD IS READ. 

NOT ALL OF THE AVAILABLE TOAD FILE DATA IS NECESSARILY RETURNED IN 
THE X- AND Y-AXIS DATA ARRAYS. IF A RECORD CONTAINS AN X-AXIS DATA 
LESS THAN THE GIVEN X-AXIS MINIMUM OR GREATER THAN THE GIVEN X-AXIS 
MAXIMUM, IT IS IGNORED. SIMILARLY, A RECORD CONTAINING A Y-AXIS 
DATA LESS THAN THE Y-AXIS MINIMUM OR GREATER THAN THE Y-AXIS MAXIMUM 
IS IGNORED. IF SELECTION VARIABLES ARE USED, ALL OF THE SELECTION 
VARIABLE NAMES MUST BE PRESENT IN THE FILE, AND ALL CORRESPONDING 
VALUES MUST EQUAL, PLUS OR MINUS A GIVEN TOLERANCE, A GIVEN TARGET 
VALUE. DATA ON RECORDS NOT MEETING THESE REQUIREMENTS ARE IGNORED. 

ERRORS ARE INDICATED WITH THE LAST ARGUMENT, 'IERROR'. A LIST OF 
THE POSSIBLE VALUES AND THEIR MEANINGS IS GIVEN BELOW. EVEN IF 
'IERROR' IS RETURNED WITH A VALUE OF ZERO (INDICATING NO ERRORS), 
IT'S POSSIBLE THAT NO QUALIFYING DATA WAS FOUND. TO BE SAFE, 

ALWAYS CHECK THE ACTUAL NUMBER OF WORDS STORED IN THE RETURNED 
DATA ARRAYS ( 'NUSED' ). 


ARGUMENTS: 


INCOMING 


IN 

INTEGER I/O UNIT OF THE ALREADY OPEN TOAD FILE. 

MAXVAR 

INTEGER NUMBER OF VARIABLES IN THE LONGEST EXPECTED 
TOAD FILE WART. 

CWORK 

CHARACTER* 15 WORKSPACE. 

(MUST BE AT LEAST 'MAXVAR' ELEMENTS LONG) 

RWORK 

rfai wnpi^DArr 

(MUST BE AT LEAST 'MAXVAR' WORDS LONG) 

NUMSEL 

INTEGER NUMBER OF VARIABLES TO USE IN SELECTING THE 
DATA SET. A VALUE OF ZERO INDICATES THAT SELECTION 
VARIABLES ARE NOT TO BE USED. 
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NAMSEL CHARACTER*15 ARRAY OF SELECTION VARIABLE NAMES. 
(MUST BE AT LEAST 'NUMSEL' WORDS LONG) 

VALSEL REAL ARRAY OF SELECTION VARIABLE TARGET VALUES. 
(MUST BE AT LEAST 'NUMSEL' WORDS LONG) 

TOLSEL REAL ARRAY OF SELECTION VARIABLE VALUE TOLERANCES. 
(MUST BE AT LEAST 'NUMSEL' WORDS LONG) 

EACH TOLERANCE MUST BE A POSITIVE NONZERO VALUE. 

IWORK INTEGER WORKSPACE. 

(MUST BE AT LEAST 'NUMSEL' WORDS LONG) 

XNAME CHARACTER* 15 NAME OF THE X-AXIS VARIABLE. 

XMIN REAL MINIMUM VALUE OF THE X-AXIS VARIABLE. 

XMAX REAL MAXIMUM VALUE OF THE X-AXIS VARIABLE. 

('XMIN' MUST BE LESS THAN 'XMAX') 

YNAME CHARACTER* 15 NAME OF THE Y-AXIS VARIABLE. 

YMIN REAL MINIMUM VALUE OF THE Y-AYIS VARIABLE. 

YMAX REAL MAXIMUM VALUE OF THE Y-AYIS VARIABLE. 

('YMIN' MUST BE LESS THAN 'YMAX') 

NCAPAC INTEGER NUMBER OF WORDS CAPACITY IN THE RECEIVING 
DATA ARRAYS. 

OUTGOING 

XDATA REAL ARRAY CONTAINING THE REQUESTED X-AXIS DATA. 

(MUST BE AT LEAST 'NCAPAC' WORDS LONG) 

YDATA REAL ARRAY CONTAINING THE REQUESTED Y-AYIS DATA. 
(MUST BE AT LEAST 'NCAPAC' WORDS LONG) 

NUSED INTEGER NUMBER OF WORDS ACTUALLY STORED IN THE 
X- AND Y-AXIS DATA ARRAYS. 

IERROR INTEGER ERROR INDICATOR OF THE READ ATTEMPT. 

0 - NO ERRORS, BUT CHECK 'NUSED' FOR THE ACTUAL 
NUMBER OF (X,Y) PAIRS STORED. 

11 - IMPROPER I/O UNIT. 

(MUST BE BETWEEN 1 AND 99) 

12 - I/O UNIT IS NOT OPEN FOR INPUT. 

13 - INPUT FILE EXISTS BUT IS EMPTY. 
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14 - INPUT FILE IS NOT IN TOAD FILE FORMAT. 

15 - MORE DATA MAY BE AVAILABLE THAN WAS STORED. 

16 - ONLY THE FIRST SECTION OF THIS COMPLEX TOAD 

FILE WAS SEARCHED. 

21 - IMPROPER VALUE FOR 'MAX VAR' . 

(MUST BE AT LEAST 2) 

22 - 'MAX VAR' IS TOO SMALL. 

(TOAD FILE WARTS ARE LONGER THAN EXPECTED) 

51 - IMPROPER NUMBER OF SELECTION VARIABLES. 

(CANNOT BE NEGATIVE) 

52 - TOO MANY SELECTION VARIABLES. 

( ' NUMSEL' EXCEEDS THE TOAD FILE'S COUNT) 

61 - UNABLE TO MATCH A SELECTION VARIABLE'S NAME. 

81 - IMPROPER SELECTION VARIABLE TOLERANCE. 

(ALL MUST BE POSITIVE NONZERO VALUES) 

101 - UNABLE TO MATCH THE X-AXIS VARIABLE'S NAME. 

Ill - IMPROPER X-AXIS MINIMUM AND MAXIMUM. 

CXMIN' MUST BE LESS THAT 'XMAX') 

131 - UNABLE TO MATCH THE Y-AXIS VARIABLE'S NAME. 

141 - IMPROPER Y-AXIS MINIMUM AND MAXIMUM. 

( ' YMIN' MUST BE LESS THAT ' YMAX ' ) 

161 - IMPROPER VALUE FOR 'NCAPAC' 

(MUST BE AT LEAST 1) 


WRITTEN APRIL 1986 BRADFORD BINGEL 
COMPUTER SCIENCES CORPORATION 
NASA / LANGLEY RESEARCH CENTER 


CHARACTER*^ 
CHARACTER* 15 
CHARACTER* 15 

CHARACTER*80 

CHARACTER*^ 

CHARACTER*5 

EQUIVALENCE 

EQUIVALENCE 


CWORK ( MAX VAR ) 

NAMSEL ( NUMSEL ) 

XNAME , YNAME 

TEXT80 
FIELD ( 5 ) 

TYPE 

( TEXT80( 1:1) , TYPE ) 

( TEXT80{ 6:6) , FIELD(l) ) 
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CHARACTER*40 

LFORM, 

LF0RM2 

CHARACTER*40 

DFORM, 

DF0RM2 

LOGICAL 

OPEN 


INTEGER 

IWORK ( 

NUMSEL ) 

REAL 

RWORK ( 

MAX VAR ) 

REAL 

VALSEL 

( NUMSEL ) 

REAL 

TOLSEL 

( NUMSEL ) 

REAL 

XDATA ( 

NCAPAC ) 

REAL 

YDATA ( 

NCAPAC ) 

IERROR = 0 



NUSED = 0 




DO SOME QUICKS CHECKS ON THE INCOMING ARGUMENTS. 


IF ( IN.LT.1.0R.IN.GT.99) THEN 
I ERROR = 11 
RETURN 
END IF 
C 

IF (MAXVAR.LT. 2) THEN 
I ERROR = 21 
RETURN 
END IF 
C 

IF ( NUMSEL.LT. 0) THEN 
IERROR = 51 
RETURN 
END IF 
C 

IF ( XMIN.GT.XMAX) THEN 
IERROR = 111 
RETURN 
END IF 
C 

IF ( YMIN.GT.YMAX) THEN 
IERROR = 141 
RETURN 
END IF 
C 

IF ( NCAPAC.LT. 1) THEN 
IERROR = 161 
RETURN 
END IF 


C 

C 


oooooooo o o oooo 




c 

MAKE SURE THAT THE GIVEN I/O UNIT IS OPEN, THEN REWIND THE FILE. 


INQUIRE ( IN,EXIST=OPEN) 

IF (.NOT. OPEN) THEN 
I ERROR = 12 
RETURN 
END IF 

REWIND IN 


SKIP OVER THE "BEGIN" WART, FIND THE "COUNT" WART, AND GENERATE 
THE "LABEL" AND "DATA" WART FORMATS. 


READ ( IN,1000,END=913,ERR=914) TEXT80 
1000 FORMAT( A80) 

C 

IF (TYPE. NE.' BEGIN') THEN 
I ERROR = 14 
RETURN 
END IF 
C 

100 READ ( IN, 1000,END=914,ERR=914) TEXT80 

IF (TYPE.NE.' COUNT') GO TO 100 
C 

READ (FIELD(l) ,' ( 115) ' ,ERR=914) NUMBER 
C 

IF (MAXVAR.LT. NUMBER) THEN 
I ERROR = 22 
RETURN 
END IF 
C 

NLEFT = NUMBER - 2 

IF (NUMSEL.GT. NLEFT) THEN 
I ERROR = 52 
RETURN 
END IF 
C 

DO 200 ISEL = 1, NUMSEL 

IF (TOLSEL(ISEL).LE.O.) THEN 
I ERROR =81 
RETURN 
END IF 

200 CONTINUE 
C 

CALL FORMAT ( NUMBER, LF0RM,LF0RM2,DF0RM,DF0RM2) 
C 
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NREAD = MIN(5, NUMBER) 


FIND THE "LABEL" WART. 


300 READ (IN,1000,END=914,ERR=914) TEXT80 

IF (TYPE. EQ. 'SKIP' .OR. TYPE. EQ. 'TEXT' ) GO TO 300 

IF (TYPE.NE.' LABEL') THEN 
IERROR = 14 
RETURN 
END IF 

READ (TEXT80.LF0RM) TYPE ,(CW0RK( I), 1=1, NREAD) 

IF (NUMBER. GT. 5) 

+READ ( IN,LF0RM2,END=914,ERR=914) (CW0RK( I) ,1=6, NUMBER) 


MAP OUT THE X-AXIS, Y-AXIS, AND ANY SELECTION VARIABLES. 


CALL VARMAP ( NUMBER , CWORK , NUMSEL , NAMSEL , IWORK , XNAME , YNAME , 
+ IXNAME.IYNAME, IERROR) 

IF ( IERROR. NE.O) RETURN 


SEARCH THE DATA ON THE REMAINDER OF THE TOAD FILE. 


400 READ ( IN,1000,END=914,ERR=914) TEXT80 

IF (TYPE.EQ. 'SKIP' . OR. TYPE. EQ. 'TEXT') GO TO 400 
C 

IF (TYPE.EQ. 'COUNT' . OR. TYPE.EQ. 'LABEL') THEN 
IERROR = 16 
RETURN 
END IF 
C 

IF (TYPE.EQ. 'END') GO TO 800 
C 

IF (TYPE.EQ. 'DATA') THEN 
C 

READ ( TEXT80,DF0RM,END=914,ERR=914) TYPE,(RWORK( I) ,1=1, NREAD) 
IF (NUMBER. GT. 5) 

+ READ ( IM,DF0RM2,END=914,ERR=914) (RWORK( I) ,1=6, NUMBER) 
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ELSE IF ( NUMBER. GT. 5) THEN 
C 

READ ( IN,LF0RM2,END=914,ERR=914) ( CWORK ( I) ,1=6, NUMBER) 
GO TO 400 
C 

END IF 


SEE IF THIS RECORD'S DATA SHOULD BE KEPT. IF NOT, SKIP TO THE 
NEXT RECORD. 


DO 500 ISEL = 1, NUMSEL 
DIFF = RW0RK( IWORK ( ISEL) ) - VALSEL(ISEL) 
IF ( ABS(DIFF) .GT.T0LSEL( ISEL) ) GO TO 400 
500 CONTINUE 

X = RWORK(IXNAME) 

IF (X.LT.XMIN.OR.X.GT.XMAX) GO TO 400 
Y = RWORK(IYNAME) 

IF ( Y.LT. YMIN.OR.Y.GT.YMAX) GO TO 400 


STORE THE DATA, AND CONTINUE UNTIL THE DATA ARRAYS ARE FILLED. 


NUSED = NUSED + 1 
XDATA(NUSED) = X 
YDATA( NUSED) = Y 

IF ( NUSED. LT.NCAPAC) GO TO 400 
I ERROR = 15 


CONTROL PASSES HERE WHEN THE ENTIRE FILE HAS BEEN SUCCESSFULLY 
READ OR WHEN THE DATA ARRAYS ARE FILLED TO CAPACITY. 


800 RETURN 


END/ERR PATHS END/ERR PATHS END/ERR PATHS END/ERR PATHS 


913 IERROR = 13 
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RETURN 


914 IERROR 
RETURN 



oooooooooooooooooooooooooooooooooooooooooooooo 


SUBROUTINE TOADM ( IN, MENU, NCAPAC, NFOUMD, IERROR ) 


UTILITY TO MAKE A LIST OF THE PARAMETERS WITHIN THIS TOAD FILE. 

THE "TRANSFERABLE OUTPUT ASCII DATA (TOAD) FILE FORMAT DESCRIPTION" 
IS AVAILABLE FROM BRADFORD BINGEL (CSC) OR DR. JOHN E. LAMAR (NASA). 


ARGUMENTS: 

IN INTEGER I/O UNIT OF THE ALREADY OPEN TOAD FILE. 

MENU CHARACTER*^ ARRAY TO RECEIVE THE PARAMETER LIST. 

NCAPAC INTEGER SIZE OF "MENU" IN THE CALLING ROUTINE. 

NFOUND RETURNED INTEGER NUMBER OF PARAMETERS FOUND. 

IERROR RETURNED INTEGER ERROR INDICATOR: 

0 - NO ERRORS, BUT CHECK "NFOUND" FOR THE ACTUAL 
NUMBER OF PARAMETERS STORED IN "MENU". 

11 - IMPROPER I/O UNIT. 

(MUST BE BETWEEN 1 AND 99) 

12 - I/O UNIT IS NOT CURRENTLY OPEN FOR INPUT. 

13 - INPUT FILE EXISTS BUT IS EMPTY. 

14 - INPUT FILE IS NOT IN TOAD FORMAT. 

31 - IMPROPER MENU ARRAY CAPACITY. 

32 - ISUFFICIENT MENU ARRAY CAPACITY. 


WRITTEN APRIL 1986 BRADFORD BINGEL 
COMPUTER SCIENCES CORPORATION 
NASA / LANGLEY RESEARCH CENTER 


CHARACTER*80 

CHARACTER*^ 

CHARACTER*5 

EQUIVALENCE 

EQUIVALENCE 

C 

CHARACTER* 15 


TEXT80 
FIELD ( 5 ) 

TYPE 

( TEXT80( 1:1) , TYPE ) 

( TEXT80(6:6) , FIELD(l) ) 

MENU ( NCAPAC ) 
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CHARACTER*40 

LFORM, 

LFORM2 

CHARACTER*40 

DFORM, 

DFORM2 

LOGICAL 

OPEN 


NFOUND = 0 
IERROR = 0 



SOME QUICK CHECKS ON 

THE INCOMING ARGUMENTS 


IF ( IN.LT.1.0R.IN.GT.99) THEN 
IERROR = 11 
RETURN 
END IF 

IF (NCAPAC.LT. 2) THEN 
IERROR = 31 
RETURN 
END IF 


MAKE SURE THAT THE GIVEN I/O UNIT IS OPEN, THEN REWIND THE FILE. 


INQUIRE ( IN,EXIST=OPEN) 

- 

IF (.NOT. OPEN) THEN 
IERROR = 12 
RETURN 
END IF 


REWIND IN 

- 

SKIP OVER THE "BEGIN" WART, FIND 
THE "LABEL" WART FORMATS. 

THE "COUNT" WART, AND GENERATE 

READ ( IN,1000,END=913,ERR=914) 
1000 F0RMAT(A80) 

TEXT80 

IF (TYPE.NE. 'BEGIN' ) THEN 
IERROR = 14 
RETURN 
END IF 
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c 

100 READ ( IN,1000,END=914,ERR=914) TEXT80 
IF (TYPE.NE.' COUNT') GO TO 100 
C 

READ ( FIELD( 1) , 1 ( 115) ' ,ERR=914) NFOUND 
C 

IF (NCAPAC.LT. NFOUND) THEN 
IERROR = 32 
RETURN 
END IF 
C 

CALL FORMAT (NFOUND , LFORM , LF0RM2 , DFORM , DF0RM2 ) 
C 

NREAD = MIN(5, NFOUND) 


FIND THE "LABEL" WART. 


200 READ ( IN,1000,END=914,ERR=914) TEXT80 

IF (TYPE. EQ. 1 SKIP 1 .OR. TYPE. EQ.'TEXT') GO TO 200 

IF (TYPE.NE. 1 LABEL' ) THEN 
IERROR = 14 
RETURN 
END IF 

READ (TEXT80, LFORM) TYPE, (MENU( I ), 1=1 , NREAD) 

IF (NFOUND. GT. 5) 

+READ ( IN,LF0RM2,END=914,ERR=914) (MENU( I ) ,1=6, NFOUND) 
RETURN 


END/ERR PATHS END/ERR PATHS END/ERR PATHS END/ERR PATHS 


913 IERROR = 13 
RETURN 

914 IERROR = 14 
RETURN 


END 
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SUBROUTINE TOADV ( IN, MAX VAR, CWORK, RVIORK , I ERROR ) 


UTILITY TO VERIFY THAT A FILE IS IN TOAD FORMAT. 

THE "TRANSFERABLE OUTPUT ASCII DATA (TOAD) FILE FORMAT DESCRIPTION" 
IS AVAILABLE FROM BRADFORD BINGEL (CSC) OR DR. JOHN E. LAMAR (NASA). 


ARGUMENTS: 

INCOMING 

IN INTEGER I/O UNIT OF THE ALREADY OPEN TOAD FILE. 

MAX VAR INTEGER NUMBER OF VARIABLES IN THE LONGEST EXPECTED 

TOAD FILE WART. 

CWORK CHARACTER* 15 WORKSPACE. 

(MUST BE AT LEAST 'MAX VAR' ELEMENTS LONG) 

RWORK REAL WORKSPACE. 

(MUST BE AT LEAST 'MAX VAR' WORDS LONG) 


IERROR RETURNED INTEGER ERROR INDICATOR: 

0 - NO ERRORS - THIS IS A VALID TOAD FILE. 

11 - IMPROPER I/O UNIT. 

(MUST BE BETWEEN 1 AND 99) 

12 - I/O UNIT IS NOT OPEN FOR INPUT. 

13 - INPUT FILE EXISTS BUT IS EMPTY. 

14 - INPUT FILE IS NOT IN TOAD FILE FORMAT. 

16 - ONLY THE FIRST SECTION OF THIS COMPLEX TOAD 
FILE WAS VERIFIED. 

21 - IMPROPER VALUE FOR ' MAXVAR' . 

(MUST BE AT LEAST 2) 

22 - 'MAXVAR' IS TOO SMALL. 

(TOAD FILE WARTS ARE LONGER THAN EXPECTED) 


WRITTEN APRIL 1986 BRADFORD BINGEL 
COMPUTER SCIENCES CORPORATION 
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NASA / LANGLEY RESEARCH CENTER 


CHARACTER* 15 

CWORK ( 

MAX VAR ) 

CHARACTER*80 

CHARACTER*^ 

CHARACTER*5 

EQUIVALENCE 

EQUIVALENCE 

TEXT80 
FIELD ( 5 ) 
TYPE 

( TEXT80( 1:1) 
{ TEXT80(6:6) 

, TYPE ) 

, FIELD(l) 

CHARACTER*40 

CHARACTER*40 

LFORM, 

DFORM, 


LF0RM2 

DF0RM2 

LOGICAL 

OPEN 



REAL 

RWORK ( 

MAX VAR ) 

I ERROR = 0 





00 SOME QUICKS CHECKS ON THE INCOMING ARGUMENTS. 


IF { IN.LT. 1 .OR. IN.GT.99) THEN 
I ERROR = 11 
RETURN 
END IF 

IF (MAXVAR.LT. 2) THEN 
I ERROR = 21 
RETURN 
END IF 


MAKE SURE THAT THE GIVEN I/O UNIT IS OPEN, THEN REWIND THE FILE. 


INQUIRE { IN,EXIST=OPEN) 

IF (.NOT. OPEN) THEN 
I ERROR = 12 
RETURN 
END IF 

REWIND IN 
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SKIP OVER THE "BEGIN" WART, FIND THE "COUNT" WART, AND GENERATE 
THE "LABEL" AND "DATA" WART FORMATS. 


READ ( IN,1000,END=913,ERR=914) TEXT80 
1000 F0RMAT(A80) 

IF (TYPE. NE. 'BEGIN') THEN 
I ERROR = 14 
RETURN 
END IF 

100 READ ( IN,1000,END=914,ERR=914) TEXT80 

IF (TYPE.NE. ' COUNT' ) GO TO 100 

READ ( FIELD( 1) , ' ( 115) ' ,ERR=914) NUMBER 

IF (MAXVAR.LT. NUMBER) THEN 
IERROR = 22 
RETURN 
END IF 

CALL FORMAT ( NUMBER , LFORM , LF0RM2 , DF ORM , DF0RM2 ) 

NREAD = MIN(5, NUMBER) 


FIND THE "LABEL" WART. 


300 READ ( IN,1000,END=914,ERR=914) TEXT80 

IF ( TYPE. EQ. ' SK IP ' .OR. TYPE. EQ.' TEXT' ) GO TO 300 

IF (TYPE.NE. ' LABEL' ) THEN 
IERROR = 14 
RETURN 
END IF 

READ (TEXT80, LFORM) TYPE, (CWORK( I) ,1=1 .NREAD) 

IF ( NUMBER. GT. 5) 

+READ ( IN.LF0RM2 ,END=914,ERR=914) (CWORK( I) ,1=6, NUMBER) 


VERIFY THE DATA ON THE REMAINDER OF THE TOAD FILE. 


400 READ ( IN, 1000,END=914,ERR=914) TEXT80 

IF (TYPE. EQ. 'SKIP'. OR. TYPE. EQ. 'TEXT') GO TO 400 
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c 

IF (TYPE. EQ.' COUNT'. OR. TYPE. EQ.' LABEL') THEN 
I ERROR = 16 
RETURN 
END IF 
C 

IF (TYPE. EQ.' END') GO TO 800 
C 

IF (TYPE. EQ. * DATA* ) THEN 
C 

READ (TEXT80,DF0RM,END=914,ERR=914) TYPE,(RWORK( I) ,I=1,NREAD) 
IF ( NUMBER .GT. 5) 

+ READ ( IN,DF0RM2,END=914,ERR=914) (RWORK( I) ,1=6, NUMBER) 

C 

ELSE IF ( NUMBER. GT. 5) THEN 
C 

READ ( IN,LF0RM2,END=914,ERR=914) (CW0RK( I) ,1=6, NUMBER) 

C 

END IF 
C 

GO TO 400 


CONTROL PASSES HERE WHEN THE ENTIRE FILE HAS BEEN SUCCESSFULLY 
READ. 


800 RETURN 


END/ERR PATHS END/ERR PATHS END/ERR PATHS END/ERR PATHS 


913 I ERROR = 13 
RETURN 

914 I ERROR = 14 
RETURN 


END 
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SUBROUTINE VARMAP ( NUMBER, CWORK, NUMSEL, NAMSEL, IWORK, 

+ XNAME, YNAME, IXNAME, IYNAME, I ERROR ) 


GENERATE A VARIABLE MAP. 


WRITTEN APRIL 1986 BRADFORD BINGEL 
COMPUTER SCIENCES CORPORATION 
NASA / LANGLEY RESEARCH CENTER 


CHARACTER*!*) 

CHARACTER*!*) 

CHARACTER*!*) 


CWORK ( NUMBER ) 
NAMSEL ( NUMSEL ) 
XNAME, YNAME 


INTEGER 


IWORK ( NUMSEL ) 


MAP THE X-AXIS VARIABLE. 


DO 100 INDEX = 1, NUMBER 

IF { CWORK ( I NDEX).EQ. XNAME) THEN 
IXNAME = INDEX 
GO TO 150 
END IF 

100 CONTINUE 

I ERROR = 101 
RETURN 

150 CONTINUE 


MAP THE Y-AXIS VARIABLE. 


DO 200 INDEX = 1, NUMBER 
C 

IF ( CWORK! INDEX) .EQ. YNAME) THEN 
IYNAME = INDEX 
GO TO 250 
END IF 
C 
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200 CONTINUE 


c 

I ERROR = 131 
RETURN 
C 

250 CONTINUE 


MAP THE SELECTION VARIABLES. 


DO 400 ISEL = 1, NUMSEL 

DO 300 INDEX = 1, NUMBER 

IF (CW0RK( INDEX) .EQ.NAMSEL( ISEL) ) THEN 
IWORK(ISEL) = INDEX 
GO TO 400 
END IF 

300 CONTINUE 

I ERROR = 61 
RETURN 

400 CONTINUE 


RETURN 

END 
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SUBROUTINE FORMAT ( NUMBER, LFORM, LF0RM2, DFORM, DF0RM2 ) 


UTILITY ROUTINE TO GENERATE TOAD "LABEL" AND "DATA" WART FORMATS. 


ARGUMENTS: 

NUMBER INTEGER NUMBER OF ITEMS PER "WART". 

LFORM RETURNED CHARACTER*40 PRIMARY "LABEL" FORMAT. 
LF0RM2 RETURNED CHARACTER*40 SECONDARY "LABEL" FORMAT. 
DFORM RETURNED CHARACTER*40 PRIMARY "DATA" FORMAT. 
DF0RM2 RETURNED CHARACTER*40 SECONDARY "DATA" FORMAT. 


WRITTEN OCTOBER 1984 BRADFORD BINGEL 
COMPUTER SCIENCES CORPORATION 
NASA / LANGLEY RESEARCH CENTER 


CHARACTERMO LFORM, LF0RM2 

CHARACTER*40 DFORM, DF0RM2 


PRIMARY FORMATS. 


NREP = INT ( ( NUMBER + 4 ) / 5 ) - 1 
C 

WRITE (LFORM, 1100) NREP 
1100 FORMAT( 1 (A5.5A15, 1 ,15, 1 ( : ,/ ,5X,5A15) 1 ) 

C 

LF0RM(40:40) = ')' 

C 

CALL DBLANKf LFORM, 40, JUNK) 

C 

WRITE (DFORM, 1200) NREP 

1200 FORMAT( ' { A5,5E15.8, ' ,IS,' ( : ,/,5X,5E15.8) 1 ) 
C 

DFORM{ 40:40) = ')' 

C 

CALL DBLANK( DFORM, 40, JUNK) 

C 

C 
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SECONDARY FORMATS. 


WRITE (LF0RM2,1300) NREP 
1300 FORMAT!'!' ,15, '(5X.5A15, :,/)') 

LF0RM2(40:40) = ')' 

CALL DBL ANK ( LF 0RM2 , 40 , J UNK ) 

WRITE (DF0RM2.1400) NREP 
1400 FORMAT! ' ( ' ,15, ‘ (5X.5E15.8, : ,/) ' ) 

DF0RM2(40:40) = ')' 

CALL DBLANK(DF0RM2,40,JUNK) 


RETURN 

END 
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SUBROUTINE DBLANK ( TEXT, OLDLEN, NEWLEN ) 


REMOVE ALL OF THE BLANKS FROM A TEXT STRING. 

FOR EXAMPLE: 

' A BC DEF G H I J ' 

** * ★** * ★★★ ***** ** * 

* MARKS EVERY BLANK WHICH WILL BE REMOVED. 

THE NEW TEXT STRING WILL BE: 

1 ABCDEFGHIJ' 


ARGUMENTS: 

TEXT CHARACTER VARIABLE CONTAINING THE TEXT TO BE 
DEBLANKED. 

OLDLEN INTEGER LENGTH OF THE ORIGINAL TEXT STRING. 
NEWLEN RETURNED INTEGER LENGTH OF THE NEW TEXT STRING. 


WRITTEN JULY 1983 BRADFORD BINGEL 
COMPUTER SCIENCES CORPORATION 
NASA / LANGLEY RESEARCH CENTER 


CHARACTERS*) 

LOGICAL 

INTEGER 

INTEGER 


TEXT 

OFFSET 

OLDLEN, NEWLEN 

COLUMN, INDEX, ZAPPED 


INDEX = 0 
ZAPPED = 0 
OFFSET = .FALSE. 


LOOK AT EACH CHARACTER IN THE TEXT STRING. WHEN A BLANK IS FOUND, 
ELIMINATE IT. 
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DO 100 COLUMN = 1, OLDLEN 
C 

IF (TEXT( COLUMN: COLUMN ).EQ.' ') THEN 
ZAPPED = ZAPPED + 1 
OFFSET = .TRUE. 

ELSE 

INDEX = INDEX + 1 

IF (OFFSET) TEXT( INDEX: INDEX) = TEXT( COLUMN: COLUMN) 
END IF 
C 

100 CONTINUE 


DETERMINE THE LENGTH OF THE NEW TEXT STRING, AND BLANK FILL ANY 
RIGHT-HAND CHARACTER POSITIONS LOST FROM SHIFTING. 


NEWLEN = OLDLEN - ZAPPED 

IF (OFFSET) TEXT(NEWLEN+1: OLDLEN) = 1 ' 


RETURN 

END 
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